﻿Public Class Testform
    Implements LibMultiPlug.Core.Plugins.Interfaces.IFormOptions

    Public Sub [New]() Implements LibMultiPlug.Core.Plugins.Interfaces.IFormOptions.New
        System.Windows.Forms.MessageBox.Show("Neu")

        'MyBase.TabPageContextMenuStrip.BackColor = Drawing.Color.Lime
    End Sub

    Public Sub Open() Implements LibMultiPlug.Core.Plugins.Interfaces.IFormOptions.Open

    End Sub

    Public Sub PagePreview() Implements LibMultiPlug.Core.Plugins.Interfaces.IFormOptions.PagePreview

    End Sub

    Public Sub Print() Implements LibMultiPlug.Core.Plugins.Interfaces.IFormOptions.Print

    End Sub

    Public Sub Save() Implements LibMultiPlug.Core.Plugins.Interfaces.IFormOptions.Save

    End Sub

    Public Sub SaveAs() Implements LibMultiPlug.Core.Plugins.Interfaces.IFormOptions.SaveAs

    End Sub

    Public ReadOnly Property SetNew As Boolean Implements LibMultiPlug.Core.Plugins.Interfaces.IFormOptions.SetNew
        Get
            Return True
        End Get
    End Property

    Public ReadOnly Property SetOpen As Boolean Implements LibMultiPlug.Core.Plugins.Interfaces.IFormOptions.SetOpen
        Get
            Return False
        End Get
    End Property

    Public ReadOnly Property SetPagePreview As Boolean Implements LibMultiPlug.Core.Plugins.Interfaces.IFormOptions.SetPagePreview
        Get
            Return False
        End Get
    End Property

    Public ReadOnly Property SetPrint As Boolean Implements LibMultiPlug.Core.Plugins.Interfaces.IFormOptions.SetPrint
        Get
            Return False
        End Get
    End Property

    Public ReadOnly Property SetSave As Boolean Implements LibMultiPlug.Core.Plugins.Interfaces.IFormOptions.SetSave
        Get
            Return False
        End Get
    End Property

    Public ReadOnly Property SetSaveAs As Boolean Implements LibMultiPlug.Core.Plugins.Interfaces.IFormOptions.SetSaveAs
        Get
            Return False
        End Get
    End Property

    Public Sub Delete() Implements LibMultiPlug.Core.Plugins.Interfaces.IFormOptions.Delete

    End Sub

    Public Event OptionsChanged(ByVal sender As Object, ByVal e As System.EventArgs) Implements LibMultiPlug.Core.Plugins.Interfaces.IFormOptions.OptionsChanged

    Public Sub Refresh1() Implements LibMultiPlug.Core.Plugins.Interfaces.IFormOptions.Refresh

    End Sub

    Public ReadOnly Property SetDelete As Boolean Implements LibMultiPlug.Core.Plugins.Interfaces.IFormOptions.SetDelete
        Get

        End Get
    End Property

    Public ReadOnly Property SetRefresh As Boolean Implements LibMultiPlug.Core.Plugins.Interfaces.IFormOptions.SetRefresh
        Get

        End Get
    End Property

    Public ReadOnly Property SetCoopDesign As Boolean Implements LibMultiPlug.Core.Plugins.Interfaces.IFormOptions.SetCoopDesign
        Get
            Return True
        End Get
    End Property

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sb As New SpezialBenachrichtigung
        sb.Benachrichtigungstext = "Test aus SB"
        sb.Beschreibung = "Eine Testmeldung"
        sb.Info = "Test"
        sb.Modul = System.Reflection.Assembly.GetExecutingAssembly().FullName
        LibMultiPlug.Core.Benachrichtigungen.BenachrichtigungsManager.GetInstance.Benachrichtige(sb)
    End Sub
End Class